Logikers Vintage Computing Christmas Challenge 2024

Hallo!

Ich habe am Wettbewerb nicht teilgenommen. Naja, die Bedingungen konnte ich mir noch übersetzen lassen, aber das Formular, was man ausfüllen musste... Egal, ich habe auch nicht selbst etwas programmiert, sondern ChatGPT antreten lassen 😁 Wie bei vielen Anfängern, benötigte auch ChatGPT ein wenig Unterstützung und einen Stups in die richtige Richtung. Zum Schluß kam dabei dieses Programm heraus:

    ORG $0600              ; Startadresse des Programms
    JSR CLEAR_SCREEN       ; Bildschirm löschen
    LDA #2
    STA $54
    JSR DRAW_HEADER        ; Muster 1: '\O/' zentriert
    JSR DRAW_LINE_BLOCK    ; Muster 2: '+--------+--------+'
    JSR DRAW_BODY_BLOCK    ; Muster 3: 8x '    !        !        !'
    JSR DRAW_LINE_BLOCK    ; Muster 2 wiederholen
    JSR DRAW_BODY_BLOCK    ; Muster 3: 8x '    !        !        !'
    JSR DRAW_LINE_BLOCK    ; Muster 2 noch einmal
    JMP *                  ; Endlosschleife

CLEAR_SCREEN:
    LDA #$7D               ; Clear Screen Befehl
    STA $342               ; Kommando-Byte (ICCOM) für IOCB 0
    JSR CIO_CALL           ; CIO aufrufen
    RTS

SET_CURSOR:
    STA $55                ; Spalte setzen (Low-Byte von COLCRS)
    LDA #0
    STA $56
    RTS

DRAW_HEADER:
    LDA #18                ; Spalte für Header (\O/)
    JSR SET_CURSOR         ; Cursor positionieren
    LDA #<HEADER_TEXT      ; Adresse des Header-Textes (Low-Byte)
    LDY #>HEADER_TEXT      ; Adresse des Header-Textes (High-Byte)
    JSR PRINT_TEXT         ; Ausgabe auf den Bildschirm
    RTS

DRAW_LINE_BLOCK:
    LDA #10                 ; Spalte für Linie
    JSR SET_CURSOR         ; Cursor positionieren
    LDA #<LINE_TEXT        ; Adresse der Linie (Low-Byte)
    LDY #>LINE_TEXT        ; Adresse der Linie (High-Byte)
    JSR PRINT_TEXT         ; Zeile ausgeben
    RTS

DRAW_BODY_BLOCK:
    LDA #8                 ; 8 Wiederholungen für Muster 3
    STA COUNTER            ; Zähler setzen
DRAW_BODY_LOOP:
    LDA #10                ; Spalte für Body
    JSR SET_CURSOR         ; Cursor positionieren
    LDA #<BODY_TEXT        ; Adresse des Textes (Low-Byte)
    LDY #>BODY_TEXT        ; Adresse des Textes (High-Byte)
    JSR PRINT_TEXT         ; Zeile ausgeben
    DEC COUNTER            ; Zähler dekrementieren
    BNE DRAW_BODY_LOOP     ; Wiederholen, solange Zähler > 0
    RTS

PRINT_TEXT:
    STA $344               ; Textadresse ins IOCB (Low-Byte)
    STY $345               ; Textadresse ins IOCB (High-Byte)
    LDA #$09               ; Put Text Record (CIO-Befehl)
    STA $342               ; Kommando ins IOCB
    LDA #40                ; Maximale Länge der Zeile (40 Zeichen)
    STA $348               ; Textlänge ins IOCB
    LDX #0                 ; IOCB Nummer 0
CIO_CALL:
    JSR $E456              ; CIO aufrufen
    RTS

HEADER_TEXT:
    .BYTE '\O/', $9B

LINE_TEXT:
    .BYTE '+--------+--------+', $9B 

BODY_TEXT:
    .BYTE '!        !        !', $9B 

COUNTER:
    .BYTE 0                ; Speicherplatz für den Zähler

    run $0600

Der Code ist alles andere als optimiert, funktioniert aber 🤓

Grüße Janko

Hier meine Beiträge in Action!, Atari BASIC und Atari LOGO, letzteres "freestyle". Alle drei sind ausschließlich auf minimale Größe optimiert. Assembler habe ich probiert, bin aber mit eigenen Ideen, die direkt in den Bildschirmspeicher schreiben, an hartnäckigen Bugs gescheitert, die zu suchen ich vor Weihnachten nicht genug Zeit hatte. Lauffähig habe ich nur ein "Nicht-Programm" inspiriert von ein paar Bemerkungen von "kenjennings" auf AtariAge hinbekommen.

Zuerst habe ich es mit Action! probiert, aber da muss man doch recht "ordentlich" programmieren und kann die Befehle nicht abkürzen. Daher mit 144 Byte relativ lang. Ich habe überlegt, statt zwei Strings etwas kürzeres zu versuchen, aber mir ist nichts eingefallen, dass kürzer gewesen wäre als die eingesparten Strings. Wäre interessant, die "Formel-Lösung" in Action zu versuchen:

In Atari BASIC geht es schon deutlich schlampiger. Im Original sind die Leerzeichen noch eingespart, aber leider ist mir nicht eingefallen, dass man FOR auch noch abkürzen kann und auf die tolle Idee mit der Formel für das Zeichen bin ich auch nicht gekommen, daher immer noch 129 Bytes:

Der Versuch in LOGO war interessant, weil ich da noch nie mehr als ein bisschen Turtle Graphics probiert hatte, aber auch da muss sauber geschrieben werden und es ist nicht viel abzukürzen. Mit Strings habe ich gar nicht erst angefangen sondern ein bisschen Kontrollstrukturen angeschaut und Turtle Graphics verwendet, daher nur "Freestyle" und mit 203 Bytes die längste Version.